home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / DeleteNew.zprx < prev    next >
Text File  |  1995-03-09  |  507b  |  28 lines
  1. /*
  2.     $VER: DeleteNew.zprx 1.2 (04.12.94) by Ralph Seichter
  3.     ARexx script for Zodiac's Point.
  4.  
  5.     Adds deletion marker to all new messages in current board.
  6.     You may specifiy FORCE and LATER as options
  7. */
  8.  
  9. PARSE ARG zpPort opt1 opt2
  10. ADDRESS VALUE zpPort
  11. OPTIONS RESULTS
  12.  
  13. whichlevel
  14. IF (RESULT = "BOARD") THEN DO
  15.     count new
  16.     IF (RESULT > 0) THEN DO
  17.         selectmessage new
  18.         delete opt1 opt2
  19.         selectmessage none
  20.     END
  21.     ELSE
  22.         requestnotify 'No new messages!'
  23. END
  24. ELSE
  25.     requestnotify 'Not inside a board!'
  26.  
  27. /* EOF */
  28.